home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VRS-M6.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  5KB  |  240 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     Goto LABEL001
  33.     End
  34.     If (0 == 0) STRING001 = "NO"
  35.     If (0 == 1) STRING001 = "YES"
  36.  
  37.     EndFunc
  38.  
  39.     :LABEL001
  40.     STRING002 = String(PcbNode())
  41.     If (PcbNode() == 0) STRING002 = "A"
  42.     STRING003 = GetEnv(STRING002 + "RECNO")
  43.     STRING003 = ToInteger(STRING003)
  44.     DOpen 0, PPEPath() + "USER.DBF", 0
  45.     DGo 0, STRING003
  46.     STRING006 = Mixed(Trim(DGet(0, "HANDLE"), " "))
  47.     DTop 0
  48.     :LABEL002
  49.     DSkip 0, 1
  50.     If (DEof(0)) Goto LABEL005
  51.     If (DRecNo(0) == STRING003) Goto LABEL002
  52.     If (DGet(0, "VITALITY") == "N") Goto LABEL002
  53.     If (DGet(0, "VITALITY") == "B") Goto LABEL002
  54.     If (DGet(0, "VITALITY") == "S") Goto LABEL002
  55.     If (DGet(0, "VITALITY") == "I") Goto LABEL002
  56.     If (DGet(0, "CASH") < 1) Goto LABEL002
  57.     If (DGet(0, "ONLINE") == "Y") Goto LABEL002
  58.     STRING004 = Mixed(Trim(DGet(0, "HANDLE"), " "))
  59.     INTEGER001 = DRecNo(0)
  60.     DGet 0, "CASH", INTEGER002
  61.     DGet 0, "EXP", INTEGER004
  62.     DGo 0, INTEGER001
  63.     Cls
  64.     Newlines 3
  65.     PrintLn "@X0E  You come across a body lying in the passageway.  It seems to be still@X07"
  66.     PrintLn "@X0E breathing, and looks rather relaxed lying there.  on closer Inspection,@X07"
  67.     PrintLn "@X0E you realize that it's @X0B", STRING004, "@X0E.@X07"
  68.     Newline
  69.     PrintLn "@X0E  Either he couldn't afford to get a coffin to sleep in, or he took@X07"
  70.     PrintLn "@X0E some spacy drugs from a bad MediKit.@X07"
  71.     Newline
  72.     InputStr "@X0E(@X0BA@X0E)ttack or ENTER to Ignore > ", STRING005, 10, 1, "A", 0 + 8
  73.     If (STRING005 == "") Goto LABEL005
  74.     Cls
  75.     Newlines 3
  76.     PrintLn "@X0EYou stealthily creep up on @X0B", STRING004, "@X0E your eyes focused on his left ear,@X07"
  77.     PrintLn "@X0Ethinking over the grab and twist that will result in instant death...@X07"
  78.     INTEGER003 = Random(10)
  79.     If (INTEGER003 > 0) Then
  80.         PrintLn "@X0EKind of cowardly, cutting down sleeping people, don't you think?"
  81.         Call PPEPath() + "VRS-M19.PPE"
  82.         Goto LABEL003
  83.     ElseIf (INTEGER003 == 0) Then
  84.         PrintLn "@X0E You paid so much attention to your intended strike that you never even@X07"
  85.         PrintLn "@X0E noticed that @X0B", STRING004, "@X0E was holding a fletcher trained on your left eye, did you?@X07"
  86.         PrintLn "@X0E Perhaps with a bit more experience you'll learn to ALWAYS keep an eye on@X07"
  87.         PrintLn "@X0E your surroundings....  Being the nice guy that @X0B", STRING004, "@X0E is, he@X07"
  88.         PrintLn "@X0E brought enough of a cell sample back for the medics to reconstitute you - @X07"
  89.         PrintLn "@X0E after, of course, stripping you of your weapons and cash...@X07"
  90.         Newline
  91.         PrintLn "@X0E Better luck tomorrow....@X07"
  92.         Newline
  93.         Call PPEPath() + "VRS-M19.PPE"
  94.         Goto LABEL004
  95.     Endif
  96.     :LABEL003
  97.     DGo 0, INTEGER001
  98.     DGet 0, "CASH", INTEGER002
  99.     DPut 0, "CASH", 0
  100.     DPut 0, "WEAPN1", 0
  101.     DPut 0, "WEAPN2", 0
  102.     DPut 0, "S_W_NUMBER", 0
  103.     DPut 0, "WEAPT1", "NONE"
  104.     DPut 0, "WEAPT2", "NONE"
  105.     DPut 0, "S_W_NAME", "NONE"
  106.     DPut 0, "WEAPA1", 0
  107.     DPut 0, "WEAPA2", 0
  108.     DPut 0, "S_W_AMMO", 0
  109.     DPut 0, "WEAPD1", 0
  110.     DPut 0, "WEAPD2", 0
  111.     DPut 0, "S_W_DAMAGE", 0
  112.     DPut 0, "ARMOR_D", 0
  113.     DPut 0, "ARMOR_N", "NONE"
  114.     DPut 0, "VITALITY", "N"
  115.     DGo 0, STRING003
  116.     DPut 0, "CASH", DGet(0, "CASH") + INTEGER002
  117.     PrintLn "You picked up ", INTEGER002, " credits!"
  118.     INTEGER004 = INTEGER004 / 10
  119.     PrintLn "You picked up ", INTEGER004, " experience points!"
  120.     DPut 0, "EXP", DGet(0, "EXP") + INTEGER004
  121.     Call PPEPath() + "VRS-M19.PPE"
  122.     DGo 0, INTEGER001
  123.     FAppend 1, PPEPath() + String(DGet(0, "FILE_NUM")) + ".MSG", 2, 0
  124.     FPutLn 1, "@X0FYou were killed by ", STRING006, ", better luck next time!"
  125.     FPutLn 1, "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  126.     FClose 1
  127.     FAppend 1, PPEPath() + "DAILY.NWS", 2, 0
  128.     FPutLn 1, "@X0F", STRING004, " was killed by ", STRING006, " today, Don't be next!"
  129.     FPutLn 1, "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  130.     FClose 1
  131.     Goto LABEL005
  132.     :LABEL004
  133.     DGo 0, STRING003
  134.     DGet 0, "CASH", INTEGER002
  135.     DGet 0, "EXP", INTEGER004
  136.     DPut 0, "CASH", 0
  137.     DPut 0, "WEAPN1", 0
  138.     DPut 0, "WEAPN2", 0
  139.     DPut 0, "S_W_NUMBER", 0
  140.     DPut 0, "WEAPT1", "NONE"
  141.     DPut 0, "WEAPT2", "NONE"
  142.     DPut 0, "S_W_NAME", "NONE"
  143.     DPut 0, "WEAPA1", 0
  144.     DPut 0, "WEAPA2", 0
  145.     DPut 0, "S_W_AMMO", 0
  146.     DPut 0, "WEAPD1", 0
  147.     DPut 0, "WEAPD2", 0
  148.     DPut 0, "S_W_DAMAGE", 0
  149.     DPut 0, "ARMOR_D", 0
  150.     DPut 0, "ARMOR_N", "NONE"
  151.     DPut 0, "VITALITY", "N"
  152.     DGo 0, INTEGER001
  153.     DPut 0, "CASH", DGet(0, "CASH") + INTEGER002
  154.     DPut 0, "EXP", DGet(0, "EXP") + INTEGER004
  155.     DGo 0, INTEGER001
  156.     FAppend 1, PPEPath() + String(DGet(0, "FILE_NUM")) + ".MSG", 2, 0
  157.     FPutLn 1, "@X0FYou killed ", STRING006, ", in self defense!  You also made ", INTEGER002, " credits!"
  158.     FPutLn 1, "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  159.     FClose 1
  160.     FAppend 1, PPEPath() + "DAILY.NWS", 2, 0
  161.     FPutLn 1, "@X0F", STRING006, " was killed attacking ", STRING004, ".  How embarrassing!"
  162.     FPutLn 1, "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  163.     FClose 1
  164.     :LABEL005
  165.     DCloseAll
  166.     FCloseAll
  167.     End
  168.  
  169. ;------------------------------------------------------------------------------
  170. ;
  171. ; Usage report (before postprocessing)
  172. ;
  173. ; ■ Statements used :
  174. ;
  175. ;    2       End
  176. ;    2       Cls
  177. ;    18      Goto 
  178. ;    11      Let 
  179. ;    17      PrintLn 
  180. ;    14      If 
  181. ;    4       FAppend 
  182. ;    4       FClose 
  183. ;    8       FPutLn 
  184. ;    1       InputStr 
  185. ;    4       Newline
  186. ;    2       Newlines 
  187. ;    3       Call 
  188. ;    1       FCloseAll
  189. ;    1       EndFunc
  190. ;    1       DOpen 
  191. ;    1       DCloseAll
  192. ;    1       DTop 
  193. ;    8       DGo 
  194. ;    1       DSkip 
  195. ;    5       DGet 
  196. ;    36      DPut 
  197. ;
  198. ;
  199. ; ■ Functions used :
  200. ;
  201. ;    1       /
  202. ;    16      +
  203. ;    11      ==
  204. ;    1       <
  205. ;    1       >
  206. ;    2       !
  207. ;    2       Trim()
  208. ;    1       Random()
  209. ;    3       String()
  210. ;    8       PPEPath()
  211. ;    2       PcbNode()
  212. ;    1       GetEnv()
  213. ;    1       ToInteger()
  214. ;    2       Mixed()
  215. ;    1       DEof()
  216. ;    2       DRecNo()
  217. ;    14      DGet()
  218. ;
  219. ;------------------------------------------------------------------------------
  220. ;
  221. ; Analysis flags : C
  222. ;
  223. ; C - Call child PPE ■ 3
  224. ;     This is usually normal, but may be a tricky way to launch some
  225. ;     sysop-only commands.
  226. ;     ■ Search for : CALL
  227. ;
  228. ;------------------------------------------------------------------------------
  229. ;
  230. ; Postprocessing report
  231. ;
  232. ;    0       For/Next
  233. ;    0       While/EndWhile
  234. ;    2       If/Then or If/Then/Else
  235. ;    0       Select Case
  236. ;
  237. ;------------------------------------------------------------------------------
  238. ;                 AEGiS Corp - Break the routines, code against the machines!
  239. ;------------------------------------------------------------------------------
  240.